home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / misc / Schlachtfeld.lha / schlachtfeld / Installieren < prev    next >
Text File  |  1999-01-11  |  8KB  |  317 lines
  1. ;
  2. ; Installer-Script für Schlachtfeld 2
  3. ; 
  4. ;    Autor     : Peter Weigoldt
  5. ;    Version   : 2
  6. ;    Datum     : 12.1.99
  7. ;
  8. ;    $VER: Install 2 (12.1.99)
  9. ;
  10. ;**************************************************
  11.  
  12. (set @user-level 1)
  13.  
  14.  
  15. (set #askdir1 (cat "Wohin soll das Spiel kopiert werden?\n"
  16. "Ein Verzeichnis 'Schlachtfeld' wird angelegt."))
  17.  
  18. (set #hd-diskeinlegen (cat "Bitte eine HD-Diskette in Laufwerk DF0: einlegen.\n"
  19. "(Diskette muß nicht formatiert sein).\n\n"
  20. "Achtung, alle Daten auf dieser Diskette werden gelöscht!!!"))
  21.  
  22. (set #dd-diskeinlegen (cat "Bitte zwei DD-Disketten bereithalten.\n"
  23. "Die erste Diskette in Laufwerk DF0: einlegen.\n" 
  24. "(Diskette muß nicht formatiert sein).\n\n"
  25. "Achtung, alle Daten auf dieser Diskette werden gelöscht!!!"))
  26.  
  27. (set #dd-diskeinlegen2 (cat "Diskette entnehmen und mit\n"
  28. "'SCHLACHTFELD#1'\n"
  29. "beschriften.\n\n\n"
  30. "Zweite Diskette einlegen.\n"
  31. "(Diskette muß nicht formatiert sein).\n\n"
  32. "Achtung, alle Daten auf dieser Diskette werden gelöscht!!!"))
  33.  
  34. (set #sorry (cat "Kann 'SYS:System/Format' bzw. 'C:Install'\n"
  35. "nicht auf Deiner Festplatte finden.\n"
  36. "Diese zwei Dateien brauche ich aber zum Anlegen der Startdisk.\n"
  37. "Ich mache trotzdem weiter mit Kopieren..."))
  38.  
  39. ;**************************************************
  40.  
  41.  
  42. (complete 0)
  43.  
  44. (set SelectedAktion
  45.      (askchoice
  46.         (help @askchoice-help)
  47.         (prompt "Art der Installation wählen")
  48.         (choices "Installation auf Festplatte"
  49.          "Spieldiskette erstellen (HD)"
  50.          "Spieldisketten erstellen (DD)")
  51.      )
  52. )
  53.  
  54. (complete 5)
  55.      
  56. (if (= SelectedAktion 0)
  57.   (       (set #name
  58.                (askdir
  59.                     (prompt #askdir1)
  60.                     (help @askdir-help)
  61.                     (default "SYS:")
  62.                )
  63.           )
  64.  
  65.           (set #Dname (tackon #name "Schlachtfeld"))
  66.  
  67.           (makedir #Dname
  68.           (infos)
  69.           )
  70.      
  71.      (complete 10)   
  72.  
  73.      (copyfiles 
  74.           (source "")
  75.           (dest #Dname)
  76.           (pattern "~(install#?|s|c|libs|fonts)")
  77.           (prompt "kopiere Dateien")
  78.           (help @confirm-help)
  79.           (confirm)
  80.      )
  81.      
  82.  
  83.      (complete 90)
  84.      
  85.      (copyfiles
  86.           (source "fonts")
  87.           (dest "FONTS:")
  88.           (pattern "#?")
  89.           (prompt "kopiere Zeichensatz")
  90.           (help @confirm-help)
  91.           (confirm)
  92.         
  93.      )
  94.      
  95.      (complete 100)
  96.      
  97.      (message "Installation erfolgreich beendet.\n"
  98.      "Das Spiel befindet sich im Verzeichnis '"#Dname"'.\n\n"
  99.      "Für MCP-Benutzer: Bitte nicht vergessen, die Cachefontliste\n"
  100.      "der CacheFont-Funktion zu aktualisieren, falls diese aktiv ist.\n"
  101.      "Tip: Falls CacheFont nicht aktiv ist, aktivieren!\n\n"
  102.      "Viel Vergnügen auf dem Schlachtfeld!")
  103.      (exit (quiet))
  104.               
  105.      
  106.   )     
  107.      
  108.  
  109.  
  110. (if (= SelectedAktion 1)
  111.  
  112.   ( 
  113.      (message #hd-diskeinlegen)
  114.     
  115.      (working "Formatiere HD-Disk in DF0:")
  116.           
  117.      (if (exists 'SYS:System/Format' (noreq))   
  118.           (run 'sys:system/format DRIVE=df0: NAME=Schlachtfeld FFS NOICONS')
  119.           (message #sorry)
  120.      )
  121.  
  122.      (complete 40)
  123.      
  124.      (working "Installiere Bootblock")
  125.      
  126.      (if (exists 'C:Install' (noreq))   
  127.           (run 'c:install df0:')
  128.           (message #sorry)
  129.           
  130.      )
  131.         
  132.      (complete 45)
  133.     
  134.      (working "Kopiere Dateien...")
  135.     
  136.      (copyfiles 
  137.           (source "")
  138.           (dest "df0:")
  139.           (pattern "~(install#?|snd)")
  140.           (prompt "kopiere Dateien...")
  141.           (help @confirm-help)
  142.           (confirm)
  143.      )
  144.      
  145.      (complete 70)
  146.      
  147.      (copyfiles 
  148.           (source "snd")
  149.           (dest "df0:snd")
  150.           (pattern "#?")
  151.           (prompt "kopiere Dateien...")
  152.           (help @confirm-help)
  153.           (confirm)
  154.      )
  155.      
  156.      (complete 90)
  157.      
  158.      (copyfiles
  159.           (source "LIBS:diskfont.library")
  160.           (dest "df0:libs")
  161.           (prompt "kopiere Dateien...")
  162.           (help @confirm-help)
  163.           (confirm)
  164.      )
  165.      
  166.      (complete 95)
  167.      
  168.      (copyfiles
  169.           (source "LIBS:mathtrans.library")
  170.           (dest "df0:libs")
  171.           (prompt "kopiere Dateien...")
  172.           (help @confirm-help)
  173.           (confirm)
  174.      )     
  175.      
  176.      (complete 99)
  177.           
  178.      (copyfiles
  179.           (source "C:assign")
  180.           (dest "df0:c")
  181.           (prompt "kopiere Dateien...")
  182.           (help @confirm-help)
  183.           (confirm)
  184.      )     
  185.     
  186.  
  187.  
  188.      (complete 100)
  189.      
  190.      (message "Installation erfolgreich beendet.\n"
  191.      "Du bist jetzt stolzer Besitzer einer neuen Spieldiskette.\n\n"
  192.      "Hinweis: Beim Spielen von Diskette bitte den Rechner\n"
  193.      "mit dieser Diskette starten.\n\n"
  194.      "Tip: In der 'Schlachtfeld.prefs'-Datei den Eintrag SCREENSHOT\n"
  195.      "von 1 auf 0 setzen. Das beschleunigt das Speichern des Spielstandes.\n\n"        
  196.      "Viel Vergnügen auf dem Schlachtfeld.")
  197.      (exit (quiet))
  198.  
  199.   ) 
  200.  
  201. (if (= SelectedAktion 2)
  202.  
  203.   ( 
  204.      (message #dd-diskeinlegen)
  205.     
  206.      (working "Formatiere DD-Disk in DF0:")
  207.           
  208.      (if (exists 'SYS:System/Format' (noreq))   
  209.           (run 'sys:system/format DRIVE=df0: NAME=Schlachtfeld#1 FFS NOICONS')
  210.           (message #sorry)
  211.      )
  212.  
  213.      (complete 29)
  214.      
  215.      (working "Installiere Bootblock")
  216.      
  217.      (if (exists 'C:Install' (noreq))   
  218.           (run 'c:install df0:')
  219.           (message #sorry)
  220.           
  221.      )
  222.         
  223.      (complete 30)
  224.     
  225.      (working "Kopiere Dateien...")
  226.     
  227.      (copyfiles 
  228.           (source "")
  229.           (dest "df0:")
  230.           (pattern "~(install#?|snd|Anleitung.guide|Anleitung.guide.info)")
  231.           (prompt "kopiere Dateien...")
  232.           (help @confirm-help)
  233.           (confirm)
  234.      )
  235.                     
  236.      (complete 50)
  237.      
  238.      (copyfiles
  239.           (source "LIBS:diskfont.library")
  240.           (dest "df0:libs")
  241.           (prompt "kopiere Dateien...")
  242.           (help @confirm-help)
  243.           (confirm)
  244.      )
  245.      
  246.      (complete 52)
  247.      
  248.      (copyfiles
  249.           (source "LIBS:mathtrans.library")
  250.           (dest "df0:libs")
  251.           (prompt "kopiere Dateien...")
  252.           (help @confirm-help)
  253.           (confirm)
  254.      )     
  255.      
  256.      (complete 55)
  257.           
  258.      (copyfiles
  259.           (source "C:assign")
  260.           (dest "df0:c")
  261.           (prompt "kopiere Dateien...")
  262.           (help @confirm-help)
  263.           (confirm)
  264.      )
  265.      
  266.      (message #dd-diskeinlegen2)
  267.      
  268.      (working "Formatiere DD-Disk in DF0:")
  269.           
  270.      (if (exists 'SYS:System/Format' (noreq))   
  271.           (run 'sys:system/format DRIVE=df0: NAME=Schlachtfeld#2 FFS NOICONS')
  272.           (message #sorry)
  273.      )
  274.      
  275.      (complete 75)
  276.           
  277.      (copyfiles 
  278.           (source "snd")
  279.           (dest "df0:snd")
  280.           (pattern "#?")
  281.           (prompt "kopiere Dateien...")
  282.           (help @confirm-help)
  283.           (confirm)
  284.      )
  285.      
  286.      (complete 95)
  287.      
  288.      (copyfiles
  289.           (source "")
  290.           (dest "df0:")
  291.           (pattern "Anleitung.guide#?")
  292.           (prompt "kopiere Anleitung...")
  293.           (help @confirm-help)
  294.           (confirm)
  295.      )
  296.      
  297.      (complete 100)
  298.      
  299.      (message "Diskette entnehmen und mit\n"
  300.      "'SCHLACHTFELD#2'\n"
  301.      "beschriften.\n\n\n")     
  302.     
  303.      
  304.      (message "Installation erfolgreich beendet.\n"
  305.      "Du bist jetzt stolzer Besitzer von 'Schlachtfeld2'.\n\n"
  306.      "Hinweis: Beim Spielen von Diskette bitte den Rechner\n"
  307.      "mit Disk #1 starten.\n\n"
  308.      "Tip: In der 'Schlachtfeld.prefs'-Datei den Eintrag SCREENSHOT\n"
  309.      "von 1 auf 0 setzen. Das beschleunigt das Speichern des Spielstandes.\n\n"        
  310.      "Viel Vergnügen auf dem Schlachtfeld.")
  311.      (exit (quiet))
  312.  
  313.   ) 
  314.   
  315.  
  316.  
  317. )))